home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 April / EnigmA AMIGA RUN 17 (1997)(G.R. Edizioni)(IT)[!][issue 1997-04][EAR-CD].iso / EARCD / comm / misc / zpoint_3_14.lha / zpoint-3.14 / Rexx / ShowMessageAsIs.zprx < prev    next >
Text File  |  1996-01-18  |  401b  |  20 lines
  1. /* ShowMessageAsIs.zprx 1.0 (18.1.96) Copyright (c) Ralph Seichter */
  2.  
  3. parse arg zp
  4. if zp = '' then
  5.     zp = 'ZPoint'
  6. options results
  7. address value zp
  8.  
  9. tmp = 'T:ShowMessageAsIs.tmp'
  10. address command 'Delete >NIL: 'tmp
  11. savemessageasis tmp
  12. if rc then do
  13.     address command 'MultiView 'tmp' PUBSCREEN 'zp
  14.     address command 'Delete >NIL: 'tmp
  15. end
  16. else
  17.     requestnotify 'Kann Nachricht nicht speichern!'
  18.  
  19. /* EOF */
  20.